oo::class create PopupSearchDialog {
    superclass PopupDialog
    variable Path PopUpFlag OKVal CancelVal ifDestroy

    method createPopup {msg} {
        next $msg

        frame $Path.search
        label $Path.search.lb -text Find
        ttk::entry $Path.search.ent
        pack $Path.search.lb $Path.search.ent -side left -pady 3 -padx 1
        pack $Path.search -side top

        focus $Path.search.ent
    }

    method turnOnFlag {} {
        set PopUpFlag [$Path.search.ent get]
    }

    method turnOffFlag {} {
        set PopUpFlag {}
    }
}